home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / News Stacks / Feb '90AMUG News™.cpt / Feb '90AMUG News™ / card_14303.txt < prev    next >
Text File  |  1990-03-11  |  2KB  |  60 lines
  1. -- card: 14303 from stack: in
  2. -- bmap block id: 14391
  3. -- flags: 0000
  4. -- background id: 2135
  5. -- name: Diamond
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=11 top=60 right=321 bottom=261
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 2
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=262 top=60 right=334 bottom=508
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 2
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: 
  34.  
  35.  
  36. -- part contents for background part 1
  37. ----- text -----
  38. 27
  39.  
  40. -- part contents for card part 1
  41. ----- text -----
  42.   error, the user will be alerted (and probably caused to panic) and the program aborted.  This is not very graceful, yet.  If you have suggestions on how it can be improved, please let me know.
  43.  
  44. Example 6:  The error handler object's definition.
  45. TError = object
  46. procedure Init;
  47. procedure DisplayMsg (errStr: Integer);
  48. procedure CheckHandle (h: Handle; errStr: Integer);
  49. procedure CheckPtr (p: Ptr; errStr: Integer);
  50. procedure Dispose;
  51. end;
  52.   The last object (or actually a pair of objects) has to do with menus.  The variable (or more properly, object reference), 
  53.  
  54. -- part contents for card part 2
  55. ----- text -----
  56. theMenuBar, is an instance of the TMenuBar object.  It uses objects of class TMenu to implement menus.  I am also not satisfied with the way these objects work 
  57. (although they do work).  I will improve these objects and discuss them further next month.  In the meantime, let's describe what we have so far.
  58.    The program starts by creating an error handler object, errHandler, so that problems can be reported.  Next the menu bar object is opened and two windows are created.  Finally the event loop entered.  Until Quit is selected from the file menu, the program allows you to manipulate the two windows in any way you wish.  One warning though, 
  59. if you close a 
  60. window, it is gone.